home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
TOT
/
DEMO.EXE
/
arc
/
DEMDR3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-10
|
1KB
|
43 lines
program DemoDirectoryThree;
{demdr3 - a customized directory list}
Uses DOS, CRT,
totFAST, totLINK, totLIST;
Var
ListWin: ListDirObj;
FileInfo: tFileInfo;
begin
Screen.Clear(white,'░'); {paint the screen}
with ListWin do
begin
Init;
SetTagging(false);
ReadFiles('*.*',AnyFile - directory); {exclude directories}
FileList^.Sort(1,true); {sort in name order}
Win^.SetTitle(' Choose a file ');
Go;
Win^.Remove;
if (LastKey = 27) or (Lastkey = 600) then
writeln('You escaped!')
else
begin
writeln('You chose file '+GetHiString);
writeln(FileList^.GetLongStr(FileList^.ActiveNodePtr));
FileList^.GetFileRecord(FileInfo, FileList^.ActiveNodeNumber);
with FileInfo do
begin
writeln('Name: ', FileName);
writeln('Attr: ', Attr);
writeln('Packed Time: ', Time);
writeln('Size: ', Size);
writeln('Directory entry:',LoadID);
end;
end;
Done;
end;
end.